home *** CD-ROM | disk | FTP | other *** search
/ Aminet 50 / Aminet 50 (2002)(GTI - Schatztruhe)[!][Aug 2002].iso / Aminet / dev / lang / nA-Iaiov0.7.lha / Iaio_v0.7ﾟ / Examples / hipposupport_1.ajo < prev    next >
Text File  |  2002-04-26  |  1KB  |  67 lines
  1. #iaio0.7+
  2. #beha
  3. #hipposupport.ajo
  4.  
  5.  
  6. hipopenport[0] : case[0,0,nohip] : openscreen[0]=320/256/2/l//;
  7. setcol[0,0,0,0,0]:setcol[0,1,0,0,0]:setcol[0,2,0,0,0]:setcol[0,3,0,0,0]
  8.  
  9. setpen[0,0,0,0,0]:rectfill[0,1,1,79,63]
  10. setpen[0,1,0,0,0]:rectfill[0,81,1,159,63]
  11. setpen[0,2,0,0,0]:rectfill[0,161,1,239,63]
  12. setpen[0,3,0,0,0]:rectfill[0,241,1,318,63]
  13.  
  14. setpen[0,3,0,0,0]:rectfill[0,81,65,159,127]
  15. setpen[0,0,0,0,0]:rectfill[0,241,65,318,127]
  16. setpen[0,1,0,0,0]:rectfill[0,161,65,239,127]
  17. setpen[0,2,0,0,0]:rectfill[0,1,65,79,127]
  18.  
  19. setpen[0,2,0,0,0]:rectfill[0,81,129,159,191]
  20. setpen[0,1,0,0,0]:rectfill[0,241,129,318,191]
  21. setpen[0,0,0,0,0]:rectfill[0,161,129,239,191]
  22. setpen[0,3,0,0,0]:rectfill[0,1,129,79,191]
  23.  
  24. setpen[0,2,0,0,0]:rectfill[0,81,193,159,255]
  25. setpen[0,3,0,0,0]:rectfill[0,241,193,318,255]
  26. setpen[0,1,0,0,0]:rectfill[0,161,193,239,255]
  27. setpen[0,0,0,0,0]:rectfill[0,1,193,79,255]
  28.  
  29. set[10,1]
  30. set[11,2]
  31. set[12,3]
  32.  
  33. do
  34. hipget[0,1,2,7,4,5,6]
  35.  
  36. add[9,1]:case[9,4,pow]
  37. add[10,1]:case[10,4,pow2]
  38. add[11,1]:case[11,4,pow3]
  39. add[12,1]:case[12,4,pow4]
  40.  
  41. setcol[0,!9,!7,!7,!7]
  42. setcol[0,!10,!4,0,0]
  43. setcol[0,!11,!5,!5,0]
  44. setcol[0,!12,0,!6,0]
  45.  
  46. delay[1] : onlmb[exit]
  47. loop
  48.  
  49. -pow:
  50. set[9,0]:return
  51. -pow2:
  52. set[10,0]:return
  53. -pow3:
  54. set[11,0]:return
  55. -pow4:
  56. set[12,0]:return
  57.  
  58. -exit:
  59. closescreen[0] : hipcloseport : jump[end]
  60.  
  61. -nohip:
  62. print=No Hippoplayer in memory!
  63. jump[end]
  64.  
  65. -end:
  66. quit
  67.